Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / inpv10 / macros.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-12-05 | 21.3 KB | 725 lines

VERSION 2.00 Begin Form Form2 BackColor = &H00C0C0C0& Caption = "Typing Macros" ClientHeight = 5760 ClientLeft = 30 ClientTop = 825 ClientWidth = 9375 ForeColor = &H00000000& Height = 6165 Icon = MACROS.FRX:0000 Left = -30 LinkMode = 1 'Source LinkTopic = "Form2" MaxButton = 0 'False ScaleHeight = 5760 ScaleWidth = 9375 Top = 480 Width = 9495 Begin TextBox mactext BackColor = &H00FFFF00& Height = 980 Left = 120 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 55 TabStop = 0 'False Top = 4680 Width = 9135 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 12 Left = 360 TabIndex = 34 TabStop = 0 'False Top = 4320 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 24 Left = 3960 TabIndex = 43 TabStop = 0 'False Top = 3960 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 11 Left = 360 TabIndex = 33 TabStop = 0 'False Top = 3960 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 23 Left = 3960 TabIndex = 54 TabStop = 0 'False Top = 3600 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 10 Left = 360 TabIndex = 32 TabStop = 0 'False Top = 3600 Width = 3075 End Begin CommandButton cancelbut Caption = "Done" Height = 740 Left = 7080 TabIndex = 46 TabStop = 0 'False Top = 3480 Width = 2175 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 22 Left = 3960 TabIndex = 42 TabStop = 0 'False Top = 3240 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 9 Left = 360 TabIndex = 31 TabStop = 0 'False Top = 3240 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 21 Left = 3960 TabIndex = 41 TabStop = 0 'False Top = 2880 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 8 Left = 360 TabIndex = 30 TabStop = 0 'False Top = 2880 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 20 Left = 3960 TabIndex = 40 TabStop = 0 'False Top = 2520 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 7 Left = 360 TabIndex = 29 TabStop = 0 'False Top = 2520 Width = 3075 End Begin CommandButton okbut Caption = "Save Macros" Height = 740 Left = 7080 TabIndex = 44 TabStop = 0 'False Top = 2400 Width = 2175 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 19 Left = 3960 TabIndex = 39 TabStop = 0 'False Top = 2160 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 6 Left = 360 TabIndex = 28 TabStop = 0 'False Top = 2160 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 18 Left = 3960 TabIndex = 53 TabStop = 0 'False Top = 1800 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 5 Left = 360 TabIndex = 27 TabStop = 0 'False Top = 1800 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 17 Left = 3960 TabIndex = 38 TabStop = 0 'False Top = 1440 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 4 Left = 360 TabIndex = 26 TabStop = 0 'False Top = 1440 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 16 Left = 3960 TabIndex = 37 TabStop = 0 'False Top = 1080 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 3 Left = 360 TabIndex = 25 TabStop = 0 'False Top = 1080 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 15 Left = 3960 TabIndex = 36 TabStop = 0 'False Top = 720 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 2 Left = 360 TabIndex = 24 TabStop = 0 'False Top = 720 Width = 3075 End Begin CommandButton pastebut Caption = "Paste CpBrd to Macro" Height = 380 Left = 7080 TabIndex = 45 TabStop = 0 'False Top = 480 Width = 2175 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 14 Left = 3960 TabIndex = 35 TabStop = 0 'False Top = 360 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 1 Left = 360 TabIndex = 23 TabStop = 0 'False Top = 360 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& Height = 300 Index = 13 Left = 3960 TabIndex = 52 TabStop = 0 'False Top = 0 Width = 3075 End Begin TextBox MACS BackColor = &H00FFFF00& ForeColor = &H00000000& Height = 300 Index = 0 Left = 360 TabIndex = 22 TabStop = 0 'False Top = 0 Width = 3075 End Begin Label macrosizelabel BackColor = &H0080FFFF& Height = 260 Left = 6000 TabIndex = 48 Top = 4320 Width = 975 End Begin Label Label2 BackColor = &H00FFFFFF& Caption = "Macro Text Size:" ForeColor = &H00000000& Height = 260 Left = 3960 TabIndex = 47 Top = 4320 Width = 1815 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "M" Height = 300 Index = 12 Left = 0 TabIndex = 12 Top = 4320 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Y" Height = 300 Index = 24 Left = 3600 TabIndex = 21 Top = 3960 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "L" Height = 300 Index = 11 Left = 0 TabIndex = 11 Top = 3960 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "X" Height = 300 Index = 23 Left = 3600 TabIndex = 51 Top = 3600 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "K" Height = 300 Index = 10 Left = 0 TabIndex = 10 Top = 3600 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "W" Height = 300 Index = 22 Left = 3600 TabIndex = 20 Top = 3240 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "J" Height = 300 Index = 9 Left = 0 TabIndex = 9 Top = 3240 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "V" Height = 300 Index = 21 Left = 3600 TabIndex = 19 Top = 2880 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "I" Height = 300 Index = 8 Left = 0 TabIndex = 8 Top = 2880 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "U" Height = 300 Index = 20 Left = 3600 TabIndex = 18 Top = 2520 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "H" Height = 300 Index = 7 Left = 0 TabIndex = 7 Top = 2520 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "T" Height = 300 Index = 19 Left = 3600 TabIndex = 17 Top = 2160 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "G" Height = 300 Index = 6 Left = 0 TabIndex = 6 Top = 2160 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "S" Height = 300 Index = 18 Left = 3600 TabIndex = 50 Top = 1800 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "F" Height = 300 Index = 5 Left = 0 TabIndex = 5 Top = 1800 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "R" Height = 300 Index = 17 Left = 3600 TabIndex = 16 Top = 1440 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "E" Height = 300 Index = 4 Left = 0 TabIndex = 4 Top = 1440 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Q" Height = 300 Index = 16 Left = 3600 TabIndex = 15 Top = 1080 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "D" Height = 300 Index = 3 Left = 0 TabIndex = 3 Top = 1080 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "P" Height = 300 Index = 15 Left = 3600 TabIndex = 14 Top = 720 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "C" Height = 300 Index = 2 Left = 0 TabIndex = 2 Top = 720 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "O" Height = 300 Index = 14 Left = 3600 TabIndex = 13 Top = 360 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "B" Height = 300 Index = 1 Left = 0 TabIndex = 1 Top = 360 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "N" Height = 300 Index = 13 Left = 3600 TabIndex = 49 Top = 0 Width = 255 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "A" Height = 300 Index = 0 Left = 0 TabIndex = 0 Top = 0 Width = 255 End Dim macselected As Integer Sub cancelbut_Click () '----------------------- OKBut_Click Form2.Hide End Sub Sub Form_Load () '---------------- Form2.Show TextLimit% = 30 For i% = 0 To 24 Macs(i%).SetFocus retVal = SendMessage&(GetFocus(), EM_LIMITTEXT, TextLimit%, 0) Macs(i%).text = RTrim$(Macros(i%).Title) Next i% TextLimit% = 2000 MacText.SetFocus retVal = SendMessage&(GetFocus(), EM_LIMITTEXT, TextLimit%, 0) Macs(0).SetFocus MacText.text = Macros(0).text macselected = 0 End Sub Sub Form_LostFocus () OKBut_Click End Sub Sub Form_Resize () '---------------------- If Windowstate <> 1 Then Form2.Height = 6120 Form2.Width = Screen.Width End If End Sub Sub Form_Unload (Cancel As Integer) OKBut_Click End Sub Sub Label1_Click (index As Integer) Macs_LostFocus macselected MacText_LostFocus macselected = index MacText.text = "" MacroSizeLabel.caption = Str$(Len(RTrim$(Macros(index).text))) MacText.text = RTrim$(Macros(index).text) MacText.SetFocus End Sub Sub MACS_GotFocus (index As Integer) '------------------------------------- MacText_LostFocus Macs_LostFocus macselected macselected = index MacText.text = "" MacroSizeLabel.caption = Str$(Len(RTrim$(Macros(index).text))) MacText.text = RTrim$(Macros(index).text) End Sub Sub MACS_KeyPress (index As Integer, keyascii As Integer) If keyascii = 9 Then MacText.SetFocus End Sub Sub Macs_LostFocus (index As Integer) Macros(macselected).Title = Macs(macselected).text End Sub Sub mactext_Change () MacroSizeLabel.caption = Str$(Len(RTrim$(MacText.text))) End Sub Sub MacText_LostFocus () If (RTrim$(Macros(macselected).Title)) = "" Then Macros(macselected).Title = Left$(MacText.text, 30) Macs(macselected).text = RTrim$(Macros(macselected).Title) End If Macros(macselected).text = MacText.text End Sub Sub OKBut_Click () '--------------------- SaveIniData If Puhandle <> 99 Then Result% = MhPuKill(Puhandle) If Result% <> 0 Then MsgBox "Error, could not kill PU Menu" End If MakePuMenus End Sub Sub pastebut_Click () '----------------------- Dim Temp As String * 2000 If macselected = 0 Then MsgBox "You must selected a macro before Pasting the Clipboard" Exit Sub End If message$ = "This will set Macro " + Label1(macselected).caption + " equal to what is on the Clipboard" Check% = MsgBox(message$, 1, "CLipBoard Paste") If Check% = 2 Then Exit Sub Temp = Left$(ClipBoard.GetText(), 2000) TT$ = Left$(InputBox$("Enter Macro title, maximum is 30 characters", "MACRO TITLE", (Left$(Temp, 30))), 30) Macs(macselected).text = RTrim$(TT$) Macros(macselected).Title = TT$ If Len(Temp) > 2000 Then MsgBox "ClipBoard contains more than 2K Bytes, only the first 2K Bytes will be captured" MacText.text = "" MacText.SelText = RTrim$(Temp) Macros(macselected).text = Temp MacText.SetFocus End Sub